CU Amiga Super CD-ROM 27/CU Amiga Magazine's Super CD-ROM 27 (1998)(EMAP Images)(GB)[!][issue 1998-10].iso/CUCD/PowerPC/vbcc/machines/amigawos/libsrc/stdio/fclose.c

C/C++ Source or Header | 1998-08-02 | 539b | 27 lines

#include <stdio.h>

extern char *_stdin,*_stdout,*_stderr;
extern FILE *_firstfile,*_lastfile;

int fclose(FILE *f)
{
  int r = (f->flags&_WRITE) ? fflush(f) : 0;

  if (f->filehandle!=_stdin && f->filehandle!=_stdout
      && f->filehandle!=_stderr)
    if (_close(f->filehandle))
      r = EOF;
  if (f->prev)
    f->prev->next = f->next;
  else
    _firstfile = f->next;
  if (f->next)
    f->next->prev = f->prev;
  else
    _lastfile = f->prev;
  if (f->base && !(f->flags&_NOTMYBUF))
    free(f->base-1);
  free (f);
  return (r);
}